(read1): Fix behavior with nested backquoting.

diff --git a/src/lread.c b/src/lread.c
index 99111a06c7de9952efb317102a1de69dccd84dd5..95914a413a49189293a5e62da6e1542747f28962 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2112,9 +2112,9 @@ read1 (readcharfun, pch, first_in_list)
        {
          Lisp_Object value;
 
-         new_backquote_flag = 1;
+         new_backquote_flag++;
          value = read0 (readcharfun);
-         new_backquote_flag = 0;
+         new_backquote_flag--;
 
          return Fcons (Qbackquote, Fcons (value, Qnil));
        }
@@ -2136,9 +2136,9 @@ read1 (readcharfun, pch, first_in_list)
              comma_type = Qcomma;
            }
 
-         new_backquote_flag = 0;
+         new_backquote_flag--;
          value = read0 (readcharfun);
-         new_backquote_flag = 1;
+         new_backquote_flag++;
          return Fcons (comma_type, Fcons (value, Qnil));
        }
       else